0 POKE45,198:POKE46,25:POKE51,.:POKE52,32:POKE55,.:POKE56,32:CLR:POKE53272,25
5 REM 'ALIEN CITY BLITZ' (C64 VERSION)        BY ROGER D. BURGE, TPUG #2667
10 REM DECEMBER, 1984, LONDON,ONTARIO,         CANADA
15 REM*SAVE BEFORE RUNNING
30 GOTO5000
35 X=X+U:IFX=FTHENX=.:Y=Y+U
40 IFPEEK(N)=LTHEN200
45 PRINTLEFT$(D$,Y)LEFT$(B$,X)" [218][219][220]":SYSM
55 ONPEEK(D)GOTO35,35,60,65
60 PRINTPEEK(Q)+K*PEEK(R)"":GOTO35
65 POKEC+U,6:POKEC+E,129:FORT=15TO.STEP-U:POKEV,T
66 IFPEEK(PEEK(253)+K*PEEK(254))=65THENPOKEPEEK(253)+K*PEEK(254),32
70 FORI=.TOK:NEXT:NEXT:POKEC+E,.:POKEV,15:GOSUB7000
75 PRINT"[144]"SPC(12)"YOU HAVE FAILED!
80 [153]""[166]11)"PLAY AGAIN?  (Y/N)":[151]198,.
85 [161]A$:[139]A$[178]"Y"[167][141]995:[137]35
90 [139]A$[178]"N"[167]19000
95 [137]85
200 X[178]X[171]U:[153]"STOP"[166]16)"SUCCESS!":[153]""[166]20[171](8[170][195](P$(SL)))[173]D);
201 [139]SL[179]10[167][153]"YOU ARE "P$(SL)
205 SC[178][194](684)[170]K[172][194](685)
210 X[178]X[170]U
211 [139]X[178]F[167]X[178].:Y[178]Y[170]U:SC[178]SC[170]SL:[153]""SC"
215 IFY=22ANDX=18THEN225
220 PRINTLEFT$(D$,Y)LEFT$(B$,X)" [218][219][220]":GOTO210
225 POKE685,SC/K:POKE684,SC-PEEK(685)*K:GOSUB7000
226 IFSL=10THEN500
227 PRINT"[144]"SPC(12)"NOW TRY CITY #"RIGHT$(STR$(SL+1),D)
230 FORT=.TOK*12:NEXT:  REM LAST CITY?
235 GOSUB1000:GOTO35
500 POKEC+U,55:FORT=12TODSTEP-U:POKEC+E,17:FORI=.TO150:NEXT:POKEC+E,.:POKE53280,T
505 POKE646,T:PRINT""SPC(20-(8+LEN(P$(SL)))/D);
510 PRINT"YOU ARE "P$(SL):NEXT
520 POKE53280,U:GOTO80
995 POKEQ,.:POKER,.:SL=.:SC=.
1000 POKE681,.:PRINT"[147]";:POKE53281,U:SYS49392
1003 H$=STR$(HI):X=.:Y=U
1004 FORT=.TO20:PRINT"";:NEXT
1005 PRINT"[149]            ALIEN CITY BLITZ            ";
1015 PRINT"           BY  ROGER D. BURGE           ";
1020 PRINT" SCORE:         CITY #                  "
1025 PRINT"[157][148][148]":POKE218,132:PRINT"";:SL=SL+U
1030 FORT=.TO23:PRINT"";:NEXT:PRINT""SC"";
1035 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(22)RIGHT$(STR$(SL),D)"";
1040 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(34-LEN(H$))"HIGH:"H$""
1045 POKED,U:POKE251,4:POKE252,4:POKE253,43:POKE254,4:L=10+SL:POKEN,.
1100 FORT=1919-SL/DTO1928+SL/D:BU=RND(.)*E+U:RF=SL/5
1105 FORI=T-FTOT-F*(INT(RND(.)*(6+RF))+D)STEP-F:POKEI,BU+80:POKEI+C,C(BU-U)
1106 NEXT
1110 POKEI,BU+84:POKEI+C,C(BU-U):NEXT:RETURN
5000 X=RND(-TI):PRINT"[147]":POKE53281,.:POKE53280,.
5020 FORX=.TO39:B$=B$+"":NEXT:D$=""
5025 FORY=.TO21:D$=D$+"":NEXT
5030 X=.:Y=1:Q=684:R=685:K=256:L=U:N=680:M=49152:F=40:U=Y:D=2:E=4
5035 C=54272:V=C+24:DIMC(3),P$(10):C(.)=12:C(U)=.:C(D)=12:C(3)=.
5075 FORT=679TO685:POKET,.:NEXT:GOSUB6000
5080 FORT=49152TO49412:READI:POKET,I:NEXT
5090 FORT=UTO10:READP$(T):NEXT
5095 POKE681,1:SYS49392:POKE53265,PEEK(53265)OR64:POKE53283,D:POKE53282,6
5100 FORT=1024TO1063:POKET,156:POKET+960,156:NEXT
5105 FORT=1064TO1944STEPF:POKET,156:POKET+39,156:NEXT
5110 GOSUB12000:PRINT""SPC(10)"INSRUCTIONS? (Y/N)":POKE198,.
5115 GETA$:IFA$="Y"THEN13000
5120 IFA$="N"THEN5200
5125 GOTO5115
5199 GOTO5199
5200 PRINT"[147]":POKE53265,PEEK(53265)AND191:POKE53280,U:GOSUB995:GOTO35
6000 FORT=CTOV:POKET,.:NEXT:POKEC+5,129:POKEC+6,129:POKEC,188:POKEC+U,188
6050 POKEV,15
6055 REM FORI=UTO55:NEXT:NEXT:POKEC+E,.
6100 RETURN
7000 SC=PEEK(Q)+PEEK(R)*K
7002 IFSC>HITHENHI=SC
7003 H$=STR$(HI):PRINT"";
7004 FORT=.TO23:PRINT"";:NEXT:PRINTSPC(34-LEN(H$))"HIGH:"H$"":RETURN
12000 PRINT""SPC(10)"[160][160][193][204][201][197][206][160][195][201][212][217][160][194][204][201][212][218][160][160]"
12005 PRINTSPC(10)"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"       
12010 PRINTSPC(10)"[160][194][217][160][160][210][207][199][197][210][160][196][174][160][194][213][210][199][197][160]"
12015 FORT=1TO18:PRINT"                                      ";:NEXT
12020 PRINT"";:RETURN
13000 PRINT"[145][145][145][145][145]THE OBJECT OF THE GAME IS TO DESTROY";
13005 PRINT"OUR ALIEN ENEMY'S CITIES.
13010 [153]"YOU MUST FLY A SPACE SHUTTLE OVER   ";
13015 [153]"THEIR PLANET'S SURFACE AND DROP BOMBS";
13020 [153]"ON THE CITIES ON YOUR ROUTE.
13025 PRINT"YOUR COMPUTER WILL GUIDE YOUR CRAFT OVER";
13030 PRINT"EACH CITY. ALL YOU HAVE TO DO IS RELEASE";
13035 PRINT"THE BOMBS.
13040 [153]"TO DROP A BOMB PRESS THE FIREBUTTON  ";
13045 [153]"ON EITHER JOYSTICK OR PRESS [7
13050 PRINT"IF YOU DESTROY THE WHOLE CITY THEN  ";
13055 PRINT"YOU GET BONUS POINTS AND A CHANCE AT ";
13060 PRINT"THE NEXT TARGET.
13065 [153]"FINISH 10 CITIES TO BE A CHAMPION.
13070 PRINTSPC(11)" PRESS [7 TO PLAY ":POKE198,.
13075 GETA$:IFA$="[136]"THEN5200
13080 GOTO13075
19000 FORT=.TOK*12:NEXT:SYS64738
20000 DATA165,251,24,105,1,133,251,165,252,105,0,133,252
20002 DATA165,2,201,1,208,74
20005 DATA165,197,201,3,208,7,169,2,133,2,56,176,48
20020 DATA173,1,220,41,16
20025 DATA201,0,208,7,169,2,133,2,56,176,32
20030 DATA173,0,220,41,16
20035 DATA201,0,208,7,169,2,133,2,56,176,16
20036 DATA165,253,24,105,1,133,253,165,254,105,0,133,254,56,176,87
20040 DATA169,188,141,1,212,141,167,2,169,17,141,4,212
20050 DATA173,167,2,56,233,2,141,1,212,141,167,2
20051 DATA162,0,169,32,145,253
20055 DATA165,253,24,105,40,133,253,165,254,105,0,133,254
20056 DATA165,254,201,7,208,40,165,253,201,111,48,34
20057 DATA165,251,24,105,39,133,253,165,252,105,0,133,254,165,2,201,3,208,3
20058 DATA238,168,2,169,1,133,2,169,0,141,4,212,56,176,57
20060 DATA160,0,177,253,201,32,240,43
20065 DATA169,3,133,2,169,129,141,4,212
20070 DATA173,172,2,24,105,5,141,172,2,173,173,2,105,0,141,173,2
20071 DATA169,6,141,134,2,169,1,133,199
20072 DATA24,162,24,160,7,32,240,255
20075 DATA160,0,169,65,145,253
20080 DATA162,0,177,251,201,32,240,4
20085 DATA169,4,133,2,96
21000 DATA162,0,173,169,2,157,0,216,157,0,217,157,0,218,157,0,219
21005 DATA232,208,241,96
25000 DATA"DOING FINE","GOOD!!","EXCELLENT!","GREAT!","AN ACE","FANTASTIC!"
25005 DATA"UNBELIEVABLE","INCREDIBLE","ALMOST A CHAMPION!","A WORLD CHAMPION!!"